Option Explicit
Sub A_Sample028()
    Dim myClms As Range
    Dim myRng  As Range
    Set myClms = Columns("C:E")		'Nd
    'ǳƨ즹
    With myClms
        Set myRng = .Find(What:="*", After:=.Cells(1), _
        LookIn:=xlValues, Searchorder:=xlByRows, _
        SearchDirection:=xlPrevious)
    End With
    If myRng Is Nothing Then
        MsgBox "SJ"
    Else
        MsgBox myRng.Address
    End If
    Set myClms = Nothing		'
    Set myRng = Nothing
End Sub
